Public Class Field_Factory
    Public Function GetAllFieldsForTable( _
                            ByVal lTableID As Long, _
                            ByVal lRevID As Long) As ArrayList

        Dim oFactory As New DBField_Factory
        Return oFactory.GetAllFieldsForTable(lTableID, lRevID)
    End Function

    Public Function GetFieldByName( _
                        ByVal lTableID As Long, _
                        ByVal sField As String) As SQLAutoDocLib.Field

        Dim oFactory As New DBField_Factory
        Return oFactory.GetFieldByName(lTableID, sField)
    End Function
End Class
